home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
asppw112
/
deletefi.asp
< prev
next >
Wrap
Text File
|
1999-01-07
|
781b
|
34 lines
<HTML><BODY>
<%
'Method: DeleteFile(strFilePathName)
'
'Sample Operation:
'Delete sample file sample.txt.
sFilePathName = "c:\sample.txt"
response.write "File """ & sFilePathName & """ to be deleted.<br>"
Set oFDMgt = Server.CreateObject("ASPPW.FDMgt")
iReturnCode = oFDMgt.DeleteFile (sFilePathName)
select case iReturnCode
case 1: response.write "Operation succeeds. <br>"
case 0: response.write "Operation failed since """ & sFilePathName & """ was not found."
case -1: response.write "Operation failed. "
case else:
end select
if oFDMgt.GetLastErrNum <> 0 then
response.write oFDMgt.GetLastErrDescription
end if
Set oFDMgt = Nothing
%>
</BODY></HTML>